let x = -a
let x = -.a
let x = !a
let x = ~~~a

let x = ~~~-a
let x = -~~~a
let x = ~~~(-a)
let x = -(~~~a)

let isMale = !user["female"]

!(!a)
!(!(!a))
!(a->f(b))

(-1)->add
-1->add
-(1->add)
!foo->print_bool
(!foo)->print_bool
!(foo->parseTruth)


node.left->peekMinNode
// same as the above
(node.left)->peekMinNode

// field access has higher precedence than unary -
let x = -a.bar
// same as above
let x = -(a.bar)

!(assert(x))
assert(!x)
!(@attr expr)
//!(arg => doStuffWith(arg))
let x = !(truth: bool)
let x = (!truth: bool)

let z = !%extension
// (!x.left) = value -> this does not parse, lhs of Pexp_setfield can't be a unary expression?
-[a, b, c]
!module(Foo: Bar)
!module(Foo)
let x = -apply(arg)
let x = -apply(. arg)
let x = -Foo(a, b, c)
let x = -{x:1, y: 2}
let x = -list{1, 2, 3}
let x = -(if true { 1 } else { 2 })
let x = -(for i in 0 to 10 { () })
let x = -(switch x {| Foo => 1})
let x = -(while i < 10 { i.contents = 20 })
let x = -(1, 2, 3)
let x = -{
  let a = 1
  let b = 2
  a + b
}
let x = -{
  sideEffect()
  generateNumber()
}

-(true ? 0 : 1)

let () = {
  getResult()
  -10
}

let x = (!truths)[0]
(!streets)[0] = "foo-street" 

!(arg => doStuffWith(arg))
